(Fstring_to_char): Don't use XSTRING/XSETSTRING to copy a lisp value.

diff --git a/src/editfns.c b/src/editfns.c
index 800aef9f7c8538225dfe8e43113867d523afe78b..af5817deafe8e6fcef073fcf355721dd9ba3cb93 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3208,10 +3208,7 @@ usage: (format STRING &rest OBJECTS)  */)
          }
        else if (SYMBOLP (args[n]))
          {
-           /* Use a temp var to avoid problems when ENABLE_CHECKING
-              is turned on.  */
-           struct Lisp_String *t = XSTRING (SYMBOL_NAME (args[n]));
-           XSETSTRING (args[n], t);
+           args[n] = SYMBOL_NAME (args[n]);
            if (STRING_MULTIBYTE (args[n]) && ! multibyte)
              {
                multibyte = 1;